home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / MacDistr < prev    next >
Encoding:
Text File  |  1997-02-02  |  501 b   |  23 lines  |  [TEXT/MPS ]
  1. perl -Sx "{0}" {"Parameters"}; Exit {Status}
  2.  
  3. #!perl
  4.  
  5. $vers = "513";
  6.  
  7. use ExtUtils::Manifest;
  8.  
  9. ($action,$distr) = @ARGV;
  10.  
  11. $ExtUtils::Manifest::MANIFEST = "MANIFEST.$distr";
  12.  
  13. if ($action eq "check") {
  14.     ExtUtils::Manifest::fullcheck();
  15. } elsif ($action eq "copy") {
  16.     ExtUtils::Manifest::manicopy(ExtUtils::Manifest::maniread(), "::Distr:Mac_Perl_${vers}_$distr", "cp");
  17. } elsif ($action eq "make") {
  18.     ExtUtils::Manifest::mkmanifest();
  19. } else {
  20.     die "Usage is: MacDistr (check|copy) (src|tool|appl)";
  21. }
  22.  
  23.